home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed48.d64 / exercise 3 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  146 lines
  1. 100 PRINT"[147]";:POKE53272,23:POKE53280,0:POKE53281,0
  2. 101 PRINT"[156]          [215][200][195] [197]NTERPRISES":GOSUB591
  3. 102 PRINT"[159]                                        [146]";
  4. 103 PRINT"                                        [146]";
  5. 104 PRINT"         [205]C[196]ONALD [197]NGLISH [211]ERIES        [146]";
  6. 105 PRINT"[159]                                        [146]";
  7. 106 PRINT"                                        [146]";
  8. 107 PRINT"               [215][207][210][196][160] [213][211][193][199][197]              [146]";
  9. 108 PRINT"[159]                                        [146]";
  10. 109 PRINT"                                        [146]";
  11. 110 PRINT"         **   REAL  &  VERY    **       [146]";
  12. 111 PRINT"[159]                                        [146]";
  13. 112 PRINT"[159]                                        [146]":GOSUB235
  14. 150 PRINT"[159][147] [215]HAT IS YOUR NAME?   "
  15. 152 INPUT N$
  16. 154 IFN$=""THEN112
  17. 156 GOSUB590
  18. 158 PRINT" [201]NSTRUCTIONS?  [217]/[206]
  19. 160 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[175]R$[179][177]"(null)"[175]R$[179][177]"(null)"[167]160
  20. 162 [139]R$[178]"Y"[167][137]400
  21. 163 [139]R$[178]"(null)"[167][137]400
  22. 190 [153]"OPENLOAD AND AWAY WE GO, "N$".":[141]591:[141]500:[141]590
  23. 192 [137]1000
  24. 235 [141]591:[141]560
  25. 236 [153]"CONT (null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO CONTINUE WAITLIST"
  26. 237 [161]U$:[139]U$[179][177][199](32)[167]237
  27. 238 [142]
  28. 240 [141]592:[141]560
  29. 242 [153]"CONT    >>>> (null)(null)ATNLENVAL PEEKATN(null) <<<<   "
  30. 244 [161]U$:[139]U$[179][177][199](32)[167]244
  31. 246 [153]"ON                                       "
  32. 248 [142]
  33. 299 :
  34. 400 [153]"LOAD              RIGHT$NSTRUCTIONS            OPEN
  35. 402 PRINT" [212]HIS IS A WORD GAME FOR GRADE 3, 4,     AND 5 PUPILS."
  36. 404 PRINT" [201]T WILL HELP YOU WITH YOUR SPELLING.
  37. 406 [153]" (null)OUR TASK IS TO SELECT THE CORRECT
  38. 408 PRINT" ADJECTIVE ([158]REAL) OR ADVERB ([158]VERY).
  39. 414 [153]"OPEN ATNFTER YOU TYPE IN THE WORD, PRESS        (null)VAL(null)(null)(null)(null) WAIT":[141]235
  40. 416 [153]"LOADOPEN     (null)OW, LET'S LOOK AT THE RULES."
  41. 418 [141]235:[137]600
  42. 499 :
  43. 500 [143] <YES>
  44. 505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  45. 510 [151]54296,15:[151]54277,42:[151]54278,250
  46. 515 [151]54276,23:[151]54273,23:[151]54272,191
  47. 520 [129]TM[178]1[164]150:[130]:[151]54276,32:[129]TM[178]1[164]200:[130]
  48. 525 [151]54296,0:[142]
  49. 530 [143] <NO>
  50. 535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  51. 540 [151]54296,15:[151]54277,18:[151]54278,242
  52. 545 [151]54276,33:[151]54273,4:[151]54272,48
  53. 550 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
  54. 555 [151]54296,0:[142]
  55. 560 [143] <BLIP>
  56. 565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  57. 570 [151]54296,7:[151]54277,42:[151]54278,250
  58. 575 [151]54276,23:[151]54273,23:[151]54272,191
  59. 580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
  60. 585 [151]54296,0:[142]
  61. 590 [129]TM[178]1[164]500:[130]:[142]
  62. 591 [129]TM[178]1[164]1000:[130]:[142]
  63. 592 [129]TM[178]1[164]2000:[130]:[142]
  64. 593 [129]TM[178]1[164]3000:[130]:[142]
  65. 600 [153]"LOADSYS           (null)EAL >< (null)ERY
  66. 605 PRINT" [158][210]EAL[159] IS AN ADJECTIVE[159] THAT MEANS
  67. 610 [153]" PRINTACTUAL; NOT IMAGINARY; NOT ASSUMEDOPEN"
  68. 615 [153]"> (null)HAT WAS A SYSREALOPEN DEMONSTRATION OF        STRENGTH.
  69. 625 GOSUB240
  70. 630 PRINT" [158][214]ERY[159] IS MOST OFTEN AN ADVERB[159]
  71. 635 [153]" MEANING PRINTTRUE; REAL; GENUINEOPEN
  72. 640 PRINT"> [199]INA PLAYED THE PIANO [158]VERY[159] WELL."
  73. 690 GOSUB235
  74. 695 GOTO190
  75. 700 PRINT" [158][210]EAL[159] IS AN ADJECTIVE[159] THAT NEANS
  76. 705 [153]" PRINTACTUAL?OPEN; NOT IMAGINARY; NOT ASSUMED
  77. 710 RETURN
  78. 720 PRINT" [158][214]ERY[159] IS MOST OFTEN AN ADVERB[159]
  79. 725 [153]" MEANING PRINTTRUE; REAL; GENUINEOPEN"
  80. 730 [142]
  81. 799 :
  82. 999 :
  83. 1000 [153]"LOAD";:[140]:[151]53281,0:[151]53280,0
  84. 1005 P[178]1:C[178]15:H[178]0
  85. 1010 [129]J[178]1[164]C
  86. 1015 [135]A$,B$,C$
  87. 1020 [153]"PRINT#LOAD VALSTR$-48 VALX-3 CLR"[163]14)""N$,[163]30)"LIST(null)TEP:"P""
  88. 1025 [153]"PRINT            (null)VALATN(null) <<>> (null)VAL(null)(null)
  89. 1030 PRINT"[158]>>> [159]";A$;"
  90. 1035 [153]"    (null)RINT THE PROPER WORD ....."
  91. 1040 [141]560:[133]"SYS>>>> ";SK$
  92. 1045 [139]SK$[178]B$[167]1090
  93. 1050 [153]"DEF                  (null)(null)                    OPEN":[141]530:[141]591
  94. 1055 [153]"DEF (null)HE ANSWER IS SYS"B$:H[178]H[170]1:[141]560:[141]560:[141]591
  95. 1060 [139]C$[178]"1"[167][141]700
  96. 1065 [139]C$[178]"2"[167][141]720
  97. 1070 [141]240:[137]1095
  98. 1090 [153]"                   (null)VAL(null)!                 OPENWAIT":[141]500:[141]591
  99. 1095 P[178]P[170]1:[130] J
  100. 1999 :
  101. 2000 [153]"OPENLOAD(null)OU HAVE NOW COMPLETED VALXERCISE 3.":[141]560:[141]591
  102. 2005 [153]"PRINT(null)OU HAVE ANSWERED"C"QUESTIONS":[141]591
  103. 2007 [139]H[178]0[167]2020
  104. 2010 [139] H[178]1[167][153]"DEF(null)OU MADE ONLY ONE BLOOPER.":[141]530:[137]2025
  105. 2012 [153]"DEF(null)OU MADE"H"BLOOPERS.":[141]530:[137]2030
  106. 2020 [139]H[178]0[167][153]"SYS                VAL(null)LENVAL(null)(null)VAL(null)(null)!              WAIT":[137]2035
  107. 2025 [139]H[178]1[167][153]"OPEN              CHR$OOD (null)ORK!                WAIT":[137]2035
  108. 2030 [153]"DEF       (null)RY HARDER!  STR$O IT AGAIN!        WAIT"
  109. 2035 [153]"":[141]235
  110. 2050 [153]"PRINTLOAD(null)OU HAVE A CHOICE:
  111. 2052 PRINT"[208]RESS  [210] [146] TO REPEAT [197]XERCISE 3
  112. 2054 [153]"(null)RESS  CHR$ WAIT TO GO TO VALXERCISE 4
  113. 2056 PRINT"[208]RESS  [205] [146] TO GO TO DISK MENU
  114. 2060 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"(null)"[175]R$[179][177]"G"[175]R$[179][177]"CHR$"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[167]2060
  115. 2062 [139]R$[178]"R"[167][140]:[137]100
  116. 2064 [139]R$[178]"(null)"[167][140]:[137]100
  117. 2066 [139]R$[178]"G"[167][140]:[137]2080
  118. 2068 [139]R$[178]"CHR$"[167][140]:[137]2080
  119. 2070 [153]"LOAD (null)ETURNING TO THE DISK (null)VAL(null)(null)
  120. 2072 LOAD"MENU",8
  121. 2074 RUN
  122. 2076 END
  123. 2080 PRINT"[147] [204]OADING [197]XERCISE 4
  124. 2082 [147]"EXERCISE 4",8
  125. 2084 [138]
  126. 2086 [128]
  127. 2099 :
  128. 2100 [143] THE GUTS OF THE UNIT
  129. 2110 [131]"CHR$ILLIAN HELPED ME BECAUSE SHE IS A SYS....OPEN FRIEND.","REAL","1"
  130. 2115 [131]"(null)HERE WAS A SYS....OPEN HEAVY RAINFALL LAST    NIGHT.","VERY","2"
  131. 2120 [131]"RIGHT$T WAS SYS....OPEN QUIET IN THE HAUNTED        HOUSE.","VERY","2"
  132. 2125 [131]"(null)HE PRINCIPAL WAS SYS....OPEN ANGRY WITH       ME.","VERY","2"
  133. 2130 [131]"(null)NFORTUNATELY, IT WAS A SYS....OPEN FIRE.","REAL","1"
  134. 2135 [131]"CHR$REG LAUGHED SYS....OPEN LOUDLY WHEN HE        SAW ME SLIP.","VERY","2"
  135. 2140 [131]"(null)HERE WAS A SYS.....OPEN MOOSE ON OUR          FRONT LAWN.","REAL","1"
  136. 2145 [131]"RIGHT$T WAS SYS....OPEN COLD THIS MORNING.","VERY","2"
  137. 2150 [131]"(null)HE SYS....OPEN POLICEMAN WAS DISGUIED.","REAL","1"
  138. 2155 [131]"(null)HEY RAN SYS....OPEN FAST WHEN THE             WHISTLE BLEW.","VERY","2"
  139. 2160 [131]"RIGHT$S THAT A SYS....OPEN AIRPLANE OR AN           IMITATION?","REAL","1"
  140. 2165 [131]"(null)HE WAS SYS....OPEN HAPPY TO SEE ME.","VERY","2"
  141. 2170 [131]"RIGHT$ AM GOING TO HAVE A SYS....OPEN COMPUTER.","REAL","1"
  142. 2175 [131]"RIGHT$ THINK SHE PLAYED THE FLUTESYS....OPEN       WELL.","VERY","2"
  143. 2180 [131]"(null)HE FLAT TIRE PRESENTED ASYS....OPEN          PROBLEM.","REAL","1"
  144. 2199 :
  145. 3000 [143] WH CUMBERLAND 93:04:05
  146.